﻿
Partial Class manage_Default
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Try
            Roles.AddUserToRole(txtsetrole.Text, selectrole.Text)
            MsgBox("Done")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        
    End Sub

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        Response.Redirect("~/manage/company.aspx")
    End Sub
End Class
